home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Small Apps / Grayline Clock / background_5501.xml < prev    next >
Encoding:
Extensible Markup Language  |  1994-04-30  |  6.6 KB  |  203 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>5501</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_5719.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_2162.css" />
  11.     <part>
  12.         <id>3</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>473</left>
  23.             <top>310</top>
  24.             <right>510</right>
  25.             <bottom>338</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1012</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Return</name>
  40.         <script>on mouseUpvisual iris closego backend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>4</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>167</left>
  54.             <top>315</top>
  55.             <right>215</right>
  56.             <bottom>336</bottom>
  57.         </rect>
  58.         <style>shadow</style>
  59.         <showName> <true /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <false /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>draw</name>
  71.         <script>on mouseUpglobal seasonalAdj, UTCminseasontimeMinreset paintput 7 into xStepput 0 into oldXput 0 into oldYput 0 - xStep into newXput 2 * pi into twoPiset brush to 28choose brush toolrepeat until newX > 511put (xStep + newX) into newXput  - (twoPi*161/377) + (twoPi*UTCmin/1440) + (twoPi * newX/377)¬¨into adjBetaput (1.7 * seasonalADJ * cos (adjBeta)) into sphericalYput round of (178 - 80 * atan (sphericalY)) into newYdrag from oldX,oldY to newX,newYput newY into oldYput newX into oldXend repeatlock screendrag from 0,305 to 511,305drag from 0,51  to 511,51choose bucket toolset pattern to 3if seasonalADJ < 0 then click at 250,52if seasonalADJ > 0 then click at 250,304doMenu "Transparent"unlock screenreset paintchoose browse toolend mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>5</id>
  75.         <type>field</type>
  76.         <visible> <true /> </visible>
  77.         <dontWrap> <false /> </dontWrap>
  78.         <dontSearch> <false /> </dontSearch>
  79.         <sharedText> <false /> </sharedText>
  80.         <fixedLineHeight> <true /> </fixedLineHeight>
  81.         <autoTab> <false /> </autoTab>
  82.         <lockText> <false /> </lockText>
  83.         <rect>
  84.             <left>387</left>
  85.             <top>318</top>
  86.             <right>450</right>
  87.             <bottom>333</bottom>
  88.         </rect>
  89.         <style>rectangle</style>
  90.         <autoSelect> <false /> </autoSelect>
  91.         <showLines> <false /> </showLines>
  92.         <wideMargins> <false /> </wideMargins>
  93.         <multipleLines> <false /> </multipleLines>
  94.         <reservedFamily> 0 </reservedFamily>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>0</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Geneva</font>
  99.         <textSize>10</textSize>
  100.         <textStyle>bold</textStyle>
  101.         <textHeight>13</textHeight>
  102.         <name>time</name>
  103.         <script></script>
  104.     </part>
  105.     <part>
  106.         <id>6</id>
  107.         <type>field</type>
  108.         <visible> <true /> </visible>
  109.         <dontWrap> <false /> </dontWrap>
  110.         <dontSearch> <false /> </dontSearch>
  111.         <sharedText> <false /> </sharedText>
  112.         <fixedLineHeight> <true /> </fixedLineHeight>
  113.         <autoTab> <false /> </autoTab>
  114.         <lockText> <false /> </lockText>
  115.         <rect>
  116.             <left>263</left>
  117.             <top>318</top>
  118.             <right>340</right>
  119.             <bottom>333</bottom>
  120.         </rect>
  121.         <style>rectangle</style>
  122.         <autoSelect> <false /> </autoSelect>
  123.         <showLines> <false /> </showLines>
  124.         <wideMargins> <false /> </wideMargins>
  125.         <multipleLines> <false /> </multipleLines>
  126.         <reservedFamily> 0 </reservedFamily>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Geneva</font>
  131.         <textSize>10</textSize>
  132.         <textStyle>bold</textStyle>
  133.         <textHeight>13</textHeight>
  134.         <name>date</name>
  135.         <script></script>
  136.     </part>
  137.     <part>
  138.         <id>7</id>
  139.         <type>button</type>
  140.         <visible> <true /> </visible>
  141.         <reserved5> 0 </reserved5>
  142.         <reserved4> 0 </reserved4>
  143.         <reserved3> 0 </reserved3>
  144.         <reserved2> 0 </reserved2>
  145.         <reserved1> 0 </reserved1>
  146.         <enabled> <true /> </enabled>
  147.         <rect>
  148.             <left>113</left>
  149.             <top>315</top>
  150.             <right>160</right>
  151.             <bottom>336</bottom>
  152.         </rect>
  153.         <style>shadow</style>
  154.         <showName> <true /> </showName>
  155.         <highlight> <false /> </highlight>
  156.         <autoHighlight> <false /> </autoHighlight>
  157.         <sharedHighlight> <true /> </sharedHighlight>
  158.         <family>0</family>
  159.         <titleWidth>0</titleWidth>
  160.         <icon>0</icon>
  161.         <textAlign>center</textAlign>
  162.         <font>Chicago</font>
  163.         <textSize>12</textSize>
  164.         <textStyle>plain</textStyle>
  165.         <name>clear</name>
  166.         <script>on mouseUpglobal locTallychoose select tooldoMenu "Select All"doMenu "Clear Picture"choose browse toolput 0 into locTallyhide cd fld beamInfoend mouseUp</script>
  167.     </part>
  168.     <part>
  169.         <id>9</id>
  170.         <type>field</type>
  171.         <visible> <true /> </visible>
  172.         <dontWrap> <false /> </dontWrap>
  173.         <dontSearch> <false /> </dontSearch>
  174.         <sharedText> <false /> </sharedText>
  175.         <fixedLineHeight> <true /> </fixedLineHeight>
  176.         <autoTab> <false /> </autoTab>
  177.         <lockText> <false /> </lockText>
  178.         <rect>
  179.             <left>36</left>
  180.             <top>28</top>
  181.             <right>89</right>
  182.             <bottom>42</bottom>
  183.         </rect>
  184.         <style>rectangle</style>
  185.         <autoSelect> <false /> </autoSelect>
  186.         <showLines> <false /> </showLines>
  187.         <wideMargins> <false /> </wideMargins>
  188.         <multipleLines> <false /> </multipleLines>
  189.         <reservedFamily> 0 </reservedFamily>
  190.         <titleWidth>0</titleWidth>
  191.         <icon>0</icon>
  192.         <textAlign>left</textAlign>
  193.         <font>Geneva</font>
  194.         <textSize>9</textSize>
  195.         <textStyle>plain</textStyle>
  196.         <textHeight>12</textHeight>
  197.         <name>updating</name>
  198.         <script></script>
  199.     </part>
  200.     <name></name>
  201.     <script>on timeMinglobal UTCminput offset (":",field "time") into cOffput 60 * (char 1 to (cOff - 1) of fld "time") into UTCminadd (char (Coff +1) to 5 of fld "time") to UTCminend timeMinon Seasonglobal seasonalAdjput fld "date" into holdDateput DaysBetweenDates ("1/1/88", holdDate) into Julianput 1/(sin(2 * pi * (Julian - 80) / 366)) into seasonalAdjend season</script>
  202. </background>
  203.